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>/V*» h<7)PC-6001MKlIffl<7)t><7) 
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frfcLM'l^o g ff (7) & I \ Ati 

'y?LTfr£i MSXc7)*n-yh 
C % MIDK >^ — 7x-T^2^«) 
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— 7JUT-MIDI INI i: MIDI 0UT1 S 
MIDI IN2£MIDIOUT2£-ftl^fft 
o^T'MSXcoll;,i£^;h,3 * 



|W5£"T*SI0 TEST OK ! *£StJF 
?n-S ERROFW'-C/cb-f <'®I 

fr«J-3Tia*£»NW: teo OK 

tlWz b, -^(Z CTCx 7. h 7°P 7=y 
A<7)(5-7 5rl^T$-t*-J:-5 Tl < 
Kl ^T I tflfcfc H®_t<?)!gc*<225 < 

bl^b 1 *\ 2-f-^M'Js 0(3 
ift<fc*£*fc255< bUfrbilo 



[ CTRL l + l STOP r ?ibftTl*l*y, 
3ft^(jZC0MIDK>^-7x-f 



ffi -y->A-^KPC-6001MKflfflMCC-15E- 



LS I Z80A SIO/O 



Z80A CTC 



TTL 74LS04 



74LS08 



74LS32 



74LS93 



74LS138- 



Z>x\^t)y3 PC-900- 



2V7>$)W5/\s—$> 4MHz 



V-=>yV7s$ 2SC1815-Y- 



SM'Tf-K 1S1588 



mm 1/4W(*— *V«K) 220Q- 



270D- 



10KD- 



^>^Jb=l>x>-y- 10//F 16V 



1z^S^^=l>x>+l- 0.1//F 25V- 



3*^^DIN5tf>(>cx)i 
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10 

2iZi 
38 
40 
50 
60 
70 
80 
90 

100 
110 

120 
130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 
320 
330 
OR" 
340 
350 
360 
370 
380 
390 
OR" i 

400 

410 



'SIO TEST PROGRAM [TESTS 10 .BAS ] 

ADSIO=?<H10 'SIO Ach data 
ACSIO=?<Hll 'SIO Ach command 
BDSI0=ScH12 'SIO Bch data 
BCSI0=S-<H13 'SIO Bch command 

' iZ'-'V^i'T." Bch 
RESTORE 180 
FOR 1=1 TO 9 

READ A*: OUT BCSIO , VAL < "&H"+A*> 

NEXT 

' 4zi'i> = ?-i?" Ach 

RESTORE 180 

FOR 1=1 TO 9 

READ A*: OUT ACS 10 ,VAL « "&h"+A*) 

NEXT 

'Channel reset 

DATA 18 

'Set WR4,Non parity, lstop bit,x!6 

DATA 14,44 

'Set WR3 ,8bit , receive enable 

DATA 03, El 

'Set WR5,8bit , transmit enable 

DATA 05, EA 

'Set WR1, Disable Interupt 

DATA 11 ,00 

'test SIO Ach 
PRINT"r.7h +30" 
FOR D=0 TO 255 
OUT ADSIO,D 

IF INP(ADSIO)OD THEN PR INT "SIO A ER 
BEND 
NEXT 

'test SIO Bch 
FOR D=0 TO 255 
OUT BDSIO,D 

IF INP(BDSIO)OD THEN PRINT"SIO B ER 
sEND 
NEXT 
PR I NT "SIO TEST OK!" 



CTC 



yuo^u 



10 'CTC TEST PROGRAM CTESTCTC .BAS 3 
20 C0=&H14 'CTC0 address 

CTC1 

CTC2 

CTC3 



30 C1=«<H15 

40 C2=?<H16 

50 C3=?<H17 

60 ' 

70 'iZz-'V^iy:- &. 7.V-1 

80 'CTC1 »9:/9t-h* ,ZE/;?£>h t«tb ,VK«fb 

90 OUT CI ,&B01010111 

100 OUT CI ,255 

110 'CTC0 9<7t-h" ,7° \)7. f 7- : J256 ,3-.'7.T.'b t»)t> 

120 OUT C0,?<B00110111 
130 OUT C0,0 
140 PRINT INP(Cl) 
150 GOTO 140 



CS 1 



CS 2 



CS12 



SLTSEL 



RFSH 



WAIT 



INT 



M1 



Ifl BUSDIR 



IORQ 



MREQ 



WR 



RD 



RESET 



A... 



A; 



A- 



Am 



A 



A 2 



A3 



Do 



D. 



D 



D? 



GND 



CLOCK 



GND 



SW1 



+5V 



SW2 



+5V 



+12V 



SOUND IN 



m -+12V 



14 
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^> 



12. . ,, 

3D* 1 ! 

13 



10 




32 



OG2A 



C Y< 

Y. 



138 



15 



OG2B 



G: 



16 



INT 
Ml 



RESET 
RD 



IORQ 
Ao 

A. 



10k Q 




D-~Dn 



CB 



TRG« 



INT 
Ml 



RESET 
RD 



IORQ 
CSo 
CS. 
2C« 

TRGi 



CTC 



trg. 

TRG. 

Do 
Di 
Da 
Da 

D. 
Ds 
D,. 



15 



+ 



23 



QC 

B 
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QD Ro(1) Ro(2) 



35 



32 



36 



33 



34 



23 



40 



39 



38 



37 



CE TxCA 
RxCA 
TxCB 
RESET RxCB 



INT 
Ml 



RD 



IORQ 

C/D 

B/A 



SYNCA 



SYNCB 

GTSA 



GTSB 
DCDA 
DCDB 



IEI 



RxDB 



TxDB 



SIO/0 



RxDA 



Jfc 



20 



11 



14 



27 



T 



DIN5oin 



10k Q 



220 a 



1S1588! 



MIDI 
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10^F 
16V 



T 



04 



32 



93 



24 



138 



r-a 



14 



CTC 



SIO 



8 5 
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1000 "I-'J-j J t9Kt* 

1010 CLEAR 1000,&HBFFF 

1020 SCREEN 5, 2: COLOR 15,5,5:CLS 

1030 DEFINT A-Z:GOSUB 1970 :DEFUSR0=&HC000 :DEFUSR1=«<HC002 

1040 DIM PN(13) :RESTORE 2480:FOR 1=0 TO 13:READ PN(I):NEXT I 

1050 OPEN "GRP:" FOR OUTPUT AS #1 :BOSUB 1470 

1060 'H'J 

1070 P=0:TN=0:SP=1:COLOR 1,15 

1080 SET PAGE 0,0:COLOR=(PN(7) ,0,0,0) 

1090 GOSUB 1450 

1100 PSET (MX-15, MY-48) :PRINT #l,"0-<^" 

1110 PSET (MX-15, MY-38) :PRINT #1 , "#" flj" oT" 

1120 PSET (MX-15, MY-28) :PRINT #1 ,'"T il»>t-r 

1130 IF STRIG(0)=0 THEN GOTO 1130 

1140 GOSUB 1450 

1150 PSET <MX-15,MY-48) :PRINT #l,"77-0-!" 

1160 FOR N=7 TO 13 

1170 COLOR=(PN(N) ,0,0,0) :DUMMY=USR0(N) 

1180 FOR W=l TO 80:NEXT W 

1190 COLOR=(PN(N) ,2,3,7) :DUMMY=USR1 (N) 

1200 NEXT N:N=0 

1210 SET PAGE P,P 

1220 COLOR=(PN(N) ,0,0,0) :DUMMY=USR0 (N) 

1230 IF (P=0 AND N=6) OR (P>2 AND N>=12) THEN BEEP: GOTO 1300 

1240 K=STRIG(0) :P=P+K*(F<3)-(K=0)*(P<>0) 

1250 COLOR=(PN(N) ,2,3,7) :DUMMY=USR1 (N) 

1260 IF N=7 THEN TN=TN+1 :SET PAGE ,0:PSET (MX-15 , MY-38) :PRINT 

IH.TNj'W 

1270 N=N+SP:IF N>13 THEN N=0 

1280 GOTO 1210 

1290 't-vJJfl'v? ht J L'a'.i 

1300 GOSUB 1450 . 

1310 PSET (MX-15, MY-48) :PRINT #1,"*!" 

1320 PSET (MX-15, MY-38) :PRINT #1 , "JyM-..V 

1330 FOR W=l TO 1000:NEXT W 

1340 GOSUB 1450 

1350 COLOR=(PN(N) ,2,3,7) :DUMMY=USR1 (N) 

1360 SET PAGE 0,0:6OSUB 1450: 

1370 COLOR=(PN(N) ,0,0,0) :DUMMY=USR0(N) 

1380 PSET (MX-15, MY-48) :PRINT #1 , "l$i$Mtt" 

1390 PSET (MX-15, MY-38) :PRINT #1 ,TN 

1400 PSET (MX-15, MY-28) :PRINT #1 , "Wl" 

1410 FOR W=l TO 1300:NEXT W 

1420 COLOR=(PN(N) ,2,3,7) :DUMMY=USR1 (N) 

1430 GOSUB 1450:GOTO 1070 

1440 '?SVi> 1 12 

1450 LINE (MX-15, MY-49) - (MX+40 ,MY-19) ,15, BF 

1460 RETURN 

1470 'Tt'J t»(T-i" 

1480 XX=130:YY=50:MX=40:MY=150 

1490 C0L0R=(2,6,6,4) :COLOR= (3 ,7 ,3,3) 

1500 C0L0R=(4, 1,6,1) :C0L0R=(13,7,3,3) 

1510 FOR 1=6 TO 12 

1520 C0L0R=(I,2,3,7) 

1530 NEXT I 

1540 FOR 1=0 TO 3 

1550 SET PAGE 0,I:CLS 

1560 PSET (80,5):PRINT #1,"0-U, (!) fcftfcO* " 

1570 C=5:REST0RE 2230 

1580 READ OX,QY:C=C+l:PSET (XX+OX , YY+OY) 
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1590 READ X:IF X=256 THEN 1580 

1600 IF X>256 THEN 1620 

1610 READ Y:LINE -STEP(X ,Y) ,C:G0T0 1590 

1620 RESTORE 2020 

1630 READ 0X,0Y:PSET (XX+OX , YY- (4*1 ) +0Y) 

1640 READ X:IF X=256 THEN 1630 

1650 IF X>256 THEN 1670 

1660 READ Y:LINE -STEP (X , Y) , 1 : GOTO 1640 

1670 IF I>=2 THEN RESTORE 2180 

1680 READ 0X,0Y:PSET (XX+OX ,YY- (4*1 ) +0Y) 

1690 READ X : IF X=256 THEN 1680 

1700 IF X>256 THEN 1720 

1710 READ Y:LINE -STEP (X , Y) ,1 :60T0 1690 

1720 PAINT (XX+2,YY-(4*I)+2) ,2,1 

1730 PAINT (XX+27+2,YY-(4*I)+61+2) ,3,1 

1740 PAINT (XX+16+3,YY-(4*I)+74+3) ,4,1 

1750 PAINT (XX+16-3,YY-(4*I)+74+3) ,2,1 

1760 RESTORE 2310 

1770 READ OX,OY:PSET (MX+OX ,MY+0Y> 

1780 READ X:IF X=256 THEN 1770 

1790 IF X>256 THEN 1810 

1800 READ Y:LINE -STEP (X , Y) , 1 :G0T0 1780 

1810 PAINT (MX,MY+2) ,15,1 

1820 PAINT (MX + 11 ,MY+4) ,13,1 

1830 PAINT (MX,MY+6) ,1,1 

1840 PAINT (MX,MY+21) ,13,1 

1850 PAINT (MX+11, MY-8) ,15,1 

I860 SPRITE$(0)=CHR$(255)+STRING*(15,CHR$(0))+CHR*(255)+STRI 
NG$(15,CHR$(0)) 

1870 RESTORE 2400 :P=0 

FOR K=l TO 6 

READ N 

FOR J=l TO N 

READ X,Y:PUT SPRITE P, (XX+X , YY + Y) ,0,0:P=P+1 
NEXT J 

NEXT K 

PUT SPRITE 26,(0,217) 
1950 NEXT I 
I960 RETURN 

1970 'HOT t" -9 J DtTi 
1980 RESTORE 2490 : I=&HC000 
1990 READ K$:IF K$="END" THEN RETURN 
2000 K=VAL("&H"+K$) :POKE I ,K:I = I + 1 :GOTO 1990 
2010 'O-Tj J Irt 

2020 DATA 0,0,2,0,7,10,14,9,6,2,4,0,3,-1,5,-4,12,-13,3,-3,2,2 

2030 DATA 2,12,1,12,2,4,3,10,1,7,0,8,-1,5,-3,6,-5,4,-5,3 

2040 DATA "2,0,-3,1,-3,1,-7,1,-11,0,-10,-1,-2,-1,-6,-2,-6,-3 

2050 DATA -5,-5,-4,-8,0,-15,1,-4,1,-5,2,-9,1,-10,0,-13,256 

2060 DATA 4,54,1,-3,2,-3,4,-2,8,0,4,1,2,2,2,3,256 

2070 DATA 39,50,2,-4,4,-3,7,0,5,2,2,2,1,3,1,3,256 

2080 DATA 16,74,2,1,-1,-5,0,-3,1,-5,2,-4,2,-2,5,-2,8,-1 

2090 DATA 5,1,5,2,3,2,2,3,2,5,-1,4,-1,4,256 

2100 DATA 27,61,2,11,256,39,60,-1,12,256 

2110 DATA 52,25,5,2,2,3,-1,2,-2,0,-1,-3,-3,-4,256 

2120 DATA 16,74,3,4,6,3,8,0,6,-2,6,-2,2,0,-2,4,-2,5 

2130 DATA -1,6,6,-9,2,-5,4,3,3,5,0,-8,-2,-3,-2,-1,257 

2140 ")-tj j mr i 

2150 DATA 14,74,-41,7,2,4,-2,3,36,6,4,31,4,31,3,-2,4,2 
2160 DATA 10,-29,13,29,4,-2,3,2,2,-31,3,-32,38,-6,-2,-4 
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2170 DATA 2,-2,-44,-9,257 

2180 ")-Tj J Din 

2190 DATA 14,74,-41,15,2,4,-2,3,36,-2,4,31,9,31,3,-2,4,2 

2200 DATA 5,-29,8,29,4,-2,3,2,7,-31,3,-32,38,2,-2,-4 

2210 DATA 2,-2,-44,-17,257 

2220 » *■»**:" J fl 

2230 DATA -28,84,-2,-4,3,-31,11,-36,14,-18,29,-4,31,4,16,19,18 

,35,9,32,-2,3,256 

2240 DATA -28,84,-2,-4,8,-30,12,-21,6,-4,67,0,13,6,10,18,14,32 

,-2,3,256 

2250 DATA -28,84,-2,-4,10,-18,12,-12,77,0,18,13,12,13,-2,3,256 

2260 DATA -28,84,-2,-4,24,-5,17,-1,47,0,18,1,23,6,-2,3,256 

2270 DATA -28,84,-2,4,9,8,24,8,7,1,51,0,7,-1,19,-7,12,-8,-2,-3 

,256 

2280 DATA -28,84,-2,4,23,32,18,9,52,0,16,-10,20,-30,-2,-3,256 

2290 DATA -28,84,-2,4,17,44,14,22,70,0,12,-16,16,-49,-2,-3,257 

2300 'VjVj+vj 

2310 DATA 0,0,6,2,3,2,1,4,0,4,-2,3,-3,3,-2,1 ,-3,0,-2,0,-3,-1,- 

3 -2 -2 -5 

2320 DATA 0,-4,2,-3,2,-3,6,-1,256 

2330 DATA 6,2,4,-1,3,0,-1,4,-2,3,256,-6,1,-2,-2.256,-8,4,-3,-2 

,256 

2340 DATA -10,7,-4,0,256,0,5,2,2,-2,2,-2,-2,2,-2,256 

2350 DATA 3,19,2,7,2,8,1,7,-1,6,-4,5,-8,3,-6,0,-11,-4,-2,-3,1, 

-3,2 

2360 DATA -1,3,1,6,3,4,0,6,-1,1,-3,1,-5,-1 ,-5,-2,-9,-1,-7,256 

2370 '7tT'V 

2380 DATA 11,-5,16,-5,19,-2,1,-15,5,-14,-7,-6,-14,-11,-17,2,-2 

2,-4 

2390 DATA -9,11,-9,9,4,13,0,10,19,6,16,7,257 

2400 'X?*?4¥ 4f J 7 B -9 

2410 DATA 5,-2,24,14,24,30,24,46,24,49,24 

2420 DATA 5,-6,49,10,49,26,49,42,49,56,49 

2430 DATA 3,13,73,29,73,45,73 

2440 DATA 4,11,104,27,104,43,104,48,104 

2450 DATA 4,13,128,29,128,45,128,49,128 

2460 DATA 5,3,153,19,153,35,153,51,153,58,153 

2470 'PALETE NO. TABLE 

2480 DATA 6,7,8,9,10,11,12,12,11,10,9,8,7,6 

2490 'HOT t"-9 

2500 DATA 18, 04, 0E, 00, 18, 02, 0E, 01 ,23,23 ,5E ,7B ,FE ,00 ,28 ,24 

2510 DATA FE,07,30,20,1D,16,00,21,35,C0,19,46,21,3B,C0,CB 

2520 DATA 23, 19 ,5E ,23 ,56 ,21 ,00 ,74 , 19 , 16,00 , IE , 10 ,79 , CD, 77 

2530 DATA 01 , 19, 10, F9,C9 ,05 ,05 ,03 ,04 ,04 ,05 ,00 ,00 ,50 ,00, A0 

2540 DATA 00 ,D0 ,00 , 10 ,01 ,50,01 , END 
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mzm 'j ^^ z t £M 'j i To 

tltWiXb, *&&&&&£. 

hmx-it ^ < s fe -? fc 3 ^c7)g|5 a p 

£c7)TLP521-1T'-f= 7*h^7°^ 



LED)£&mfr(tz£z.lf7* h h 
7>y^?) ^I+A?nfca5p a p(7) 
Z i: T'f. oSU mmWtz (i^ir 
(zSgmsns^ltT-r^ vtizj: 
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ILT*j#iT TLP521-1I& 
LED £7* |> h^v^C^fl^-g- 

*>w 1 ffi/ftti4A? ftf= dip? < 

S"C\ TLP521-2££\ -3 S -4£l* 

tfzwit, &m, 4[ns§^iNo 

tmX'to *}*>*>&£>&*> 8 fc? 
>, I2fc?> % 16tf>-£Uo/H*& 

iI#<7>LED«£Ufc4>ftl x ®i£T*<5 IffiS"-^ 

nitT^fti^^bft^ (#r 
7 > v * ? £»#£#> b mm Ltzife 

i§3t LED(ZlJ5 $ tJT>y<7 
I l/£<7)«3£ £>,1E L T ^ b ft U ,>: ft 

ZM,, S1985^RP5C01CDLSI*fte 
USfSt, 2.45 VT^Tkk 

fZft^Tl^CDT'-fo W&tfAr> 
TU*%£T*fc, 3 /1?JU K7)^m 
•tilTv \'*y ? T -y 7"L Tl*§ ^ST* 
fcx Z^T^-y^^^-tf-T^ 

bfti*ftt#i*tt£#A, 



7°T'+3-T"to LED(7)|t#it^U 

oTt-^ftizitLi^^T-iift 

t>tf>T\ *>J:-3ttJi^£L-tfc< 

LED(i*JTL.Tl*5£# N *<7)i5i 
SflsCT 7 /- P^^V— K)<7)®±«\ 
3£ft£fEifElIIK|jb bf (5(5—^(7) 
f«£^L£T fcf^fcU*^ggC 
f$fflT3 J: -9 ft LED<7)*§ -g-T'ti, 
1.7~2.(Wi;H- «%lr*Ctf*J-iT, 
-^SU, *H£T* fc r <nw&zt±.<n 
£T«>bft>*r/£ekTLft 

t^T'fe I^ifi^fe, LED 
tiil^fzffifti 1 *( 1 . 5#/U h ) T 
it &XJ L ft I ^ I ^ Z <>: i?1nfr% 

ST«ffiE(V)£Wt\ LED 
Wj&'fKJgftttl R ( Q) £Aft3 £ x 
tf-AtfJfcglJlZj: u, [Ul&djjjtft 
*®iiE I ( A)(fc&T<7>5&7)J: 9 (Z 
ft ( J S T (H* £#HB) L tz tf -i 
T, HPg(ZZ(7)5t^f$oTR^* 
#>T<&3£, l=2.4(mA) % E=5(V) N 

vt= 1 . 7 ( v) £ £ y s To ftfcao y 

-f*-KlzJ:4m/±KT0.6^;i/ 

R=(5-0.6-1.7)-r2.4=1.125(KQ) 
£ ft 'J * Tc 

fittST'A * 1 . 2K Q £1>,tf 





#-A.'j:!Si;T7'-*f-fc&»J-3ltT, -b-y h L fc^|8]CP.| b L Xf & Z t b'X'Z S^fc^ 
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^<7)@Kf2*£fHUiift<7)T\ 
S*Rft iT?r?iJffl L ft UTSKft L S 
"To ElSSEKiHl 3 (7) i: fc ij T"f*\ 
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T-^^gBItT < fc $ l\, 77^f 
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A»ft*^(zm^ L i ^ft ^ga 

!t/c<ft^A(Js ffl^ftyif-Jg 

^ft b*^^z*l^iA^T' l & x. t 

To f^ffl T*# 5 7"+f-(ii±m7"1f 

-^^{ffti)fcCOT\ ffiJi/±ffl(7) 
fc <7>ftbl JfBjT't^^S-t+Ao fe 
-^/zZft/cltTfc, g»$LB#lt 
<T)iXW)[zmzttfT>£Z? a 

* * 7*+f-£oft <- ^ 7 -> >(Z J 
o T (jflMfet^tfl^ 'J » tf- ^ n ..| 
t) r>ttLUZt£Z>ZtW$>l) it* 
til^tzm^t, BASICT; U 
7. h (DdXDji ■) ftMil (-f - > +• 
70Hft^ia:?U 
Zfttiii^ SL^^^ftT^ 

*i/Oifi^=i> n p— iu® r )*F<jyt)- 

t^T'tbK Zft£Lftl^L- 

e^^L/-cMSXftc7)(z, m^SSffl 
X- # ft i ^*|-g-A< A £ rfr b T'To 

zft(i 1 3t^fcFBljlA.ftiNj: -5 
(z ! fc L F«gigA -S i: i: A,X*fc >&: 

7 ffl(7)|^--tli^^UT, L(S'b< 
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[z ti r>tzh 1.I-& J: -p CR36 L T ^ 

*j*To cniiBAsic^fflS^n 

z <n&M<n tz tsb nivft^i s tz<r> 
X\ B$H^Hft1£:£tffcj!rL<tt 

r>T^ziffx*T bttnmz 

1 989^8 E 8 1 3Bf 1 0t>25# C 

nx- v ?->+-*-# l fcuspB 1 ] (c 

-b'yh?nS1"o SCREEN, WIDTH, 
COLOR<7)OTfI^ BEEPCO^fe^ 

56 h'&mizfc tx&mtxitz' 

$l\ ZfthbT^X RTCgI5(;fS 
*l£RAM£*IJfflLTU£A*'bT*To 

IrI i: C7)220# 5 frlZ T 7 - A^# 

K7XD«rA*LT<^$i^ 
#lil*:t L X h ffi&$ ft £ Ttfs 
■ttf^mo'r 9 &*-&*>■£%: l * t 
lA(t'#VX7>T*;, ¥i— TOO £1*9 
£7lzAftX<tz£l\ 



ZftX\ ZZmsfrlzUZtt, fcf 

-7i:77-AtAmLJto 

r-7-A^<ig^LTL^s^ra« 
1 7>M£tf tt„ 

£fc, 8^1O0CO^|u6B#55^> 

«. ua K7)(3)<7)«t-7i-Ls-r 5 

0ft£ ^^(7)^^(7)7- 7-Af£ 
££-f S*|£-(ZlJ, !fiW**C*SET 
TIME" 3?fJttl>*t- - ft*nnT 
Z>t, "SET DATE* T^5t$ fife 

7- 7 - A (75 Htt#-ie<7> C £ |ft#j 
£##&*. bftTLS 9 *rbT*-to 
fcfc\ C(7)tf-^ s #\ % 8, 

*&<* ft *•*-#, :ti 
£teT# *-£*,„ 

7-7-Af£££- 

7 7 ht(i^Rl^(Z 
»fFT6<7)T\ ht 
te<r-A£LTU<fc 
9#A fg^DoT 
fcTl^J:-?^ 'il-t 

7 KAliftHStWtf 
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WfiflZ 4-oTLI^f:iC XT c 
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(2P) 
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^ OUT &HB4,&H0E:OUT &HB5.&B1100 CCR) 

^ OUT &HB4.&H0F:OUT &HB5.&B1 1 1 1 CCR) 

© SET TIME"13:10:25":SET DATE"89/08/08" CCR) 

© SET TIME"22:05:00",A CCR] 

® SET TIME"06:55:00".A:SET DATE"89/08/10" , A CCRD 
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% 045111 #" iz $ T*fg£S L T „ #fffl 
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uu ^<7)fc«xz§efMx p&ctr 

CJ!££££Fo fc U f £4±#itt»f£ 
jftWC J: t> T x- a Hlw Jtft # 



J:z^.A\ 7 7 h^xT'T-l** 
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fcfC^UyA,*fA^ 15 A, £7 (J 
1«^T# 4-^(7)^ b, g B p pi:LT 

**, ZZlT^7<Zt^l^ 
£<7)77 h/N^XfZfiS^fZ^-r 

* <7)(i *> j: o i: e/^^> -5 tztf t\ 
3>t°i— 9W? YOzxzTcn^ 
1BC#$ b (z-ft^b L X ^ < W&vL 

-^niZLTfc, 77h/\77W 

U 2ftTi^^i$p n p£^';aiLfc 

^(tU^^t^a^o ^-^)-^ 

LTli^tl^»J<7)5573«:Lfc<7)(Z 

fe frirt> b -f % $iJPl^rB%7;p*g tz/ \- 

mac^it*<tv\ ^nfcsi£c7)^ 

f»7 7 h 7l7«rt^^ LT 

fox a-aw7*n^7 7-!!)<fii 

*3*^ fe cm* *r y /-c**^ b s fmv- 
■i k (nA^trntf itzt>m;*>% 
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mixm^ {$#*«> b ti^ 

ofc" t(Z&$(7)/c£,f^o 

•>a>V7 h'?x7i:i^(?)li % 
-tf-^-tf^fH-*P/\*-f h if* »J<7) 
it -f Xfc* ^tzirfti, zcny-i X 
<D7°n ff^Mts 1 >** h * 1 X 

:#£ LTgSlftS £J£fKffl*Efc100$fc 
^•<blC^I) 7°P?*7ACJi 

SSMlirag-Ctti* z. t £%* 

st, :»m 1 Amis <7)m$t 

»rsct*«T*#fc{i-ffc* 
£z.*>t\ ft^yp^Ai* 

'/*< bfrh* ifc^Vs-f MZEjft 
1"S1M 3f^t |p]A x l*oo£>5 

lZi£u»zfc^>T#fcJbttT\ Z 

jm? f i^xzt **£§*&■**# 

77 Mzft-^t < £ £, J:(5t*L 
^>fri)tLfz tm«l&Tf£ fe fcn 

#$tz£$ifct>(7)fctt*<7Mz N m 
frbWfrftTWcZtT; 77 h 

s ^lt, ^ntz^-ts^ 

±itltz<ntfV7 h7x7I^i 

Tiv7a^A*#<ctt; goto 
s(tt; zntifctfctz^^fpi 

<Dtz-otz 




-? iz 3 ■££ l^±*<7M±^«rEiS 
Tftl£ ^C^bgiSWtzH^Tffl 
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k&\.<3U ztiiamKbnfr 

[^^<fi MB]«fc' fc o £ bW& 

><7)*-C0flJ'J ^T^-^X.S*7s 

i^*>(^ajt^fc<75(z^n(^ a 

fflcn&m £ L fcS# T* fc *> * A, t 
LfcfJLT<nT, 5££r£7°P?" 

7°P ?=7U(Drt<ft l^ <7)12, 
7°P ^7 LfcftSMh b*i> SISfe'T' 

£i;s^fj&i^&So fc^Trfeu 

*> (£A,$E£tfifc t> (7)1 J. S 7c 7° P 

^l^;UT<7V\'?*<7)i£j£/c fcTr 

btt^ieai^^iiLT < nsi -5 
tt 7°p ^-7 a n ojij Emwfc 

tzitztglZ^MfrP* ?IL/: 
G&frttfl) b X < ft* «fc -5 £7°P 

eo(5 fc ^ £&$& L ft < 5 S tZal 
l^ftl\, fc-fe*^ iftl^f^TOTi? 



^>JUTroSlZT*#S77 h7x 
7tl^<7>f*s A^IZE^-TSSP 

^7A€rHS.-rs(zti v gfcljf$ 

film i^,^T'^Tt^d:fo<7) 

fr<7)%>&$:mA,X'mfr-£foitz t 

^itzl&<nX-?-S- K7jxt(7) 

tz£^i$, w®mM±m£b 

J )Z£izmilfs ^ZT'^btl 
477^l7il^«lt S* 
WdTU^UT^tKJtVS-U X-v 

l \ < -Z) AV7)S*W 4' ^ v a — JU $• 

{±m<M±mz-&t}-exm.fr&h-& 

%Z£X\ ^Tffl77h7x7^ 
f^S £ I* -3 Z t (J^pIf|T(J^^ 

«f/c'o zi(7)7j-;i^T, fetirteL 

fc fjl^^f-t^i (7) J: -7 4-5c«c7) i 
W)ft$L£ *> l -o£Wz £ Z\htfh 

S<£teo Z.(7)^|(7)7°P^"7A(7)i 
ttfNUd:; SBiPp^^UT'<7)/\*^?: 

^ttJf±U^t^7{z^Sz:t 
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«S^p a p (i, ^ v *^ b ^I«^S|5p d p 

t x\ p q pS(7)$$ l /csrs, wm 

LT^-^Tl^SL, -^00^^73(7) 
ffiifit5i3:LTUS 

U-tOC7)77 \-7^7[$U£-Z> 
(7)/\- K7x7-(ZEi^-rs^|? 

l7TV-)^yt frffijifr-tz % ^ 
ifii^^SRa £1£*£T S ^ - 73 - 
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77 t-7x7"etJZ-H^/cIJi±I 
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^m*^ < it t; ijL£<7v \° 7 p > 

(J^O^o/zttSllZtt'SoT^ 
ZA,tz&to.o tl^lM^Xb. 
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10 CLEAR 5®0 

20 DIM P*<14,3) ,H$<9,9) ,Q*<10) ,ST<12> 

30 INPUT "FILENAME" ;F* 

40 OPEN F* FOR OUTPUT AS#1 :GOSUB 790 

50 RESTORE 420: FOR J=0 TO 3 

60 FOR 1=1 TO 7 

70 READ A$:P$(I , J) ="o4"+A* :NEXT I ,J 

80 RESTORE 420: FOR J=0 TO 3 

90 FOR 1=8 TO 14 

100 READ A*:P*(I , J) ="o5"+A* :NEXT I ,J 

110 FOR J=0 TO 3:P*(0,J)="o3b-" :NEXT:U=1 

120 PR I NT "PUSH SPACE KEY" 

130 IF STRIG<0)=0 THEN R=RND ( 1 ) :GOTO 130 

140 S=INT(RND(1)*11) :C0=4 

150 TM=INT(RND<l)*150)+60 

160 PO=S/10:LL=1020 

170 LS=CO*240+1020:CLS 

180 PRINT "n-ti/zO *~ aliV 1/ZTt" •>" ;LS 

190 PRINT #1," 1000 PLAY "+CHR* <34) ; "vl3t "+STR 

*(TM) ;CHR*<34) ;" ,";CHR*<34) ;"sml000t" ;STR*(TM) 

200 CA*="ml000b-ml0000b-" :CA$="o3"+CA*+CA* 

210 PRINT #1," 1010 PLAY " ;CHR$ (34) ; "rlrl " ;CHR 

* ( 34 ) ; " , " ; CHR$ ( 34 ) ; CA$+CA* 

220 FOR C4=l TO CO 

230 RESTORE 460:A*="" 

240 R1=INT(RND(1)*8) 

250 R2=INT(RND(1)*8) 

260 FOR 12=1 TO 24 : I 1=INT ( ( 12-1 ) /2) +1 

270 FOR J=l TO 2 

280 READ A$:B*=B*+"n"+A$ 

290 NEXT J 

300 GOSUB 520 

310 PRINT #1 ,STR$(LL) ;" PLAY " ;CHR$ (34) ;B* ;CHR 

$(34) ;" ," sCHR$<34) ;C* 

320 PR I NT CHR* (11)'; CHR$ ( 3 1 ) ; "T l/V " 4 

;LL 

330 B*="":C$="" :LL=LL+10:NEXT 12 

340 U=0:NEXT C4 

350 print #1 ,str*(ll) ;" goto 1020" 
360 print chr*(11) ;chr*(31) ;'"t":^"-1 
;ll 

370 CLOSE: PR I NT "VzWaO !!" 

380 INPUT "Il/VO =>?XJl (Y or N) " ;Q* 

390 IF Q*="Y" OR Q*="y" THEN RUN F* 

400 IF Q*="N" OR Q$="n" THEN 10 

410 GOTO 380 

420 DATA c ,d-,e-,e,-f ,a-,b- 

430 DATA c ,d ,e-,-f ,g,a-,b- 

440 DATA c ,d-,e-,-f ,g ,a-,b- 

450 DATA c ,d ,e-,f ,g ,a,b- 

460 DATA 22,26,29,26,27,31,34,31 

470 DATA 22,24,26,27,29,22,26,22 



480 DATA 27,31,34,31,28,31,34,31 

490 DATA 22,26,27,28,29,19,22,23 

500 DATA 24,26,27,28,29,27,26,24 

510 DATA 22,20,19,27,26,19,24,21 

520 ' 

530 R3=R2-R1 

540 IF RND(l)>PO THEN SK=ST ( 1 1 ) ELSE SK=0 

550 R5=INT (RND ( 1 ) * ( ABS (R3) +1 ) ) +1 

560 ON R5 GOSUB 570,580,600,620,640,660,660,66 

0,660: GOTO 670 

570 R4=0: RETURN 

580 IF RND (IX. 5 THEN R4=l ELSE R4=2 

590 RETURN 

600 IF RND (IX. 5 THEN R4=3 ELSE R4=4 

610 RETURN 

620 R4=5 

630 RETURN 

640 IF RND (IX. 5 THEN R4=6 ELSE R4=7 

650 RETURN 

660 R4=8:RETURN 

670 IF R3=0 THEN R9=l ELSE R9=R3 

680 Q*(0)=P$(R1 ,SK) :J=1 :FOR I=SGN(R3)T0 R3-SGN 

(R3) STEP SGN(R3)-(R3=0) 

690 IF RND ( 1 XR5/ ABS (R9) + .l THEN 0* ( J) =P* (Rl + I , 

SK) :J=J+1 

700 NEXT 

710 FOR I=J TO 6 

720 Q*(I)="r" :NEXT 

730 IF R5>6 THEN R5=6 

740 FOR 1=0 TO R5-1 

750 C*=C*+Q$(I)+H*(R4,I> :NEXT 

760 R1=R2 

770 R2=INT(RND(1)*10)+R1-5:IF R2<0 OR R2>14 TH 

EN770 

780 RETURN 

790 RESTORE 850 

800 FOR 1=0 TO 8: READ F(I):NEXT 

810 FOR 1=0 TO 8:F0R J=0 TO F(I) 

820 READ H$(I,J):NEXT J, I 

830 FOR 1=1 TO 12:READ ST(I):NEXT 

840 RETURN 

850 DATA 0,1,1,2,2,3,4,4,5 

860 DATA 2 

870 DATA 4,4 

880 DATA 4,4 

890 DATA 4,6,12 

900 DATA 6,6,12 

910 DATA 6,12,6,12 

920 DATA 6,12,12,12,12 

930 DATA 12,12,12,6,12 

940 DATA 12,12,12,12,12,12 

950 DATA 1,2,1,1,2,2,1,1,1,3,1,1 
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SHORT PROGRAM ISI 



i/a-S • 7P-?5A • 7-f5>S 




ILLUSION LIST 



10 CLEAR100 ,&HCFFF :SCREEN0 :WIDTH40 :AD=8<HD000 
15 READA$:IFA$="END"THENGOTO20ELSE:POKEAD,VAL("&H"+A$) :AD 
=AD+1:G0T015 

20 DEFUSR=&HD003:A=USR(0) : IFA=-lTHENG0T025ELSEPRINTA"r a 1 } 
Z ?*»•■< T 7'm ": END 
25 DEFUSR=S<HD000:A=USR(0) :DEFUSR=&H9000 :A=USR(0) 
30 DATA C3,68,D0,21,00,10,11,00,80,1A,13,FE,53,20,FA,1A,1 
3,FE,54,20,F4,1A,13,FE 

35 DATA 54,20,EE,1A,13,B7,20,FB,1A,47,13,1A,13,B0,28,32,1 
A,32,8D,D0,13,1A,32,8E 

40 DATA D0,13,13,13,13,AF,32,8C,D0,06,18,CD,75,D0,4F,3A,8 
C,D0,81,32,8C,D0,79,CD 

45 DATA 4D,00,23,10,EE,13,CD,75,D0,4F,3A,8C,D0,B9,20,09,1 
8,C1,21,FF,FF,22,F8,F7 

50 DATA C9,2A,BD,D0,22,F8,F7,C9,21,00,10,11,00,90,01,00,2 
0,CD,59,00,C9,CD,82,D0 

55 DATA 87,87,87,87,4F,CD,82,D0,B1,C9,1A,13,D6,30,FE,0A,D 
8,D6,07,C9,B7,C8,D5,5F 
60 DATA END 
1000 'STT 

1010 '3E0F32E9F321000022EAF33AE0F3F60232E0F33E05CD5F00,F4 
1020 'CD4100CD5193CD73922160A111007801000BCD5C002100A4,33 
1030 '1 189AB010004EDB0CD4E92CD4100CD76A728FBCD289C01 17 ,58 
1 040 ' 00CD4700CDBDA8CD3CA6CD28A6AFCDC3002 1 6C90CD70A5CB , 9B 
1050 '25A6CD4400CD76A7286418F96050494C4C5553494F4E0148,CB 
1060 '6850555348205350414345204B4559000000202052455354,BB 
1070 '2053544147452020202053434F52452048492053434F5245,DD 
1080 '202001000820202020303020202020303020303030303030,49 
1090 '3030203030303030303030202000CD4100CDC8A8CD1893CD,D0 
1100 '8592218890CD70A5CD079CCD44003A64AA21769DB7280921 ,38 
1110 'F49E3D2803212EA0226BAA3E01CDEAA7CD6B9BAF3256AACD,3E 
1120 '1495CD8594CD4299CDE299C37191C3FB91CD6894CDB393CD,3C 
1130 'B393CD19942155AA3A6EAAB72810FE0B3006473510FD1806,0-7 
1140 'D60A473410FDCD9B9ACD6B9BCD7193CD4E92217BAA7EB728,5E 
1150 '0135CD76A7217CAA2804360018057EB7280135216AAA343A,1C 
1160 '56AAFE0138F9C303912170AA7EB7CA169134FE01280BFE28,F4 
1170 '380BFE462825C31691AFCDEBA8ED4B73AA3E10CD9CA681D6,56 
1180 '084F3E10CD9CA680D608473E0DCDE694C316913A63AAB728.7B 
1190 '0B3E99CDEFA7CDB192C31691CD4100CD76A728FBCD289C01 ,6C 
1200 '1700CD4700CDBDA8CD3CA6CD28A6AFCDC30021EE91CD70A5.68 
1210 'CD25A6CD4400CD76A720FBC33B90585047414D4520204F56.E3 
1220 '455200216FAA7EB7CA199134FE01280BFE463813FE64282D,26 
1230 'C31991AFCDEBA83E50CD93A7CD0293ED4B83AA3E31CD9CA6,56 
1240 '81D6104F3E31CD9CA680D610473E0DCDE694C319912164AA.0F 
347EFE0320023600CDC092C3E690F5C5E5F33A07004F0CAF.40 
ED793E90ED790C2150A506107EED79237EED792310F6FBE1.C2 
1 270 ' C 1 F 1 C9AF3264AA2 1 0000AF225DAA325FAACD8592C9AF676F . D0 
1280 '3255AA225AAA325CAA3262AA3264AA3E043263AACD0293CD.BD 
D292AF326DAA326FAA3270AA3C326EAAC9CDD29221 000022, B6 
6FAA3E46327BAAC9CD0293AF326DAA326FAA3270AA3C326E.8A 
AAC92178B42273AA2285AA2185AA1 187AA013E00EDB0AF32 ,9F 
1320 ' 79AA327AAA327BAA327CAA327FAA3280AA3E01327DAA327E .27 
1330 'AAC921C5AA11C6AA01C30036FFEDB03EFE32D7AA328BABC9,37 
CD28A621 00000 10080AFCD6B0 11 601 CD38931602CD389316.9A 
0FCD3893CD25A6C921FA003EFFCD9CA64F3EFFCD9CA6477A,CB 

1360 'CDE79B2B7CB520EBC93E201100200E020620C5F5D5CD C /89B,D3 
1370 'D17BC6085FF13CC110F01100280D20E8C9217DAA35201836 ( 69 
1380 '083A7FAA3r:E60F:'27FAAFE0838045F3E0F93F6103252A521,C8 



1250 
1260 



1290 

1300 

1310 



1340 
1350 



1390 '7EAA35C0360D3A80AA3CE60F3280AAFE0838045F3E0F9307 ,D9 
1400 '070707E6F0F6013254A5C93A70AAB7C0CD6BA78706004F21 ,7D 
1410 '0794095E2356ED4B73AACD0BA878FE2F200104FEC4200105,02 
1420 '79FERF20010CFEF120010DED4373AA2AA3AA2275AA2AC3AA,5C 
1430 '2277AA21C2AA11C4AA013E00EDB8ED4B73AAED4385AAC900,B0 
1440 '0000FF01FF010001010001FF01FF00FFFF3A70AAB7C03A7C,81 
1450 'AAB7C0CD76A7C03E19327CAA3E04CDEBA83A79AAB728173D,AC 
1460 '280A21CEAAED4B77AACD559421C8AAED4B75AACD559421C2,5D 
1470 'AAED4B73AA1E031DC82323237EFEFF20F6360023712370C9,25 
1480 '21C2AA110300197EFEFEC8FEFF28F423237ED618772B2B30,C4 
1490 'EA36FF1BE63A6AAAE60FC0216DAA7EFEFFC835B7C0772A6B,53 
1500 'AA7EFEFF2811FEFE2817FE08381BFE0B3824FE0CCAC19423,A3 
1510 '7E23226BAA326DAAC9237E23326EAA18D8234E230600E5CD,34 
1520 'E694E1C39994234E230600E5CDE6940603C53E10CDE694C1 ,35 
1530 '10F7E1C399945FCD8E9A235621D0AA3E08CDF6A77EFEFEC8,32 
1540 'FEFF20F37323360023712370237223360023160079FE7838,51 
1550 '011472C921D0AA110800197EFEFEC8FEFF28F4CDF3A64895,BB 
1560 'A695FF9541967D96D3962D977A97B797D5970A9882989E98,A3 
1570 'A798A798A79817953A6AAAE601C21795237E34FE1 7200236, 4E 
1580 '002B118E95CDFBA71AE501060009CB46E12802ED444F0604,83 
1590 'CDBB98C31795F5F7F9FBFDFF01030507090B0B0907050301 ,B3 
1600 'FFFDFBF9F7F501030507090B0B0907050301FFFDFBF9F7F5,00 
1610 'F5F7F9FBFDFF3A6AAAE601C21795237E34FE1F200236002B,F4 
1620 '11DF95CDFBA71AE501060009CB46E12802ED444F0604CDBB,31 
1630 '98DA17953E64CD9CA6CCD998C31 79501 030507090B0D0F0F,CA 
1640 '0D0B0907050301FFFDFBF9F7F5F3F1F1F3F5F7F9FBFDFF23,D4 
1650 '7EB72011010500E5097EE13619B7280236012B18EA34FE1B,97 
1660 '20023601FE30200236192B1176953DCB3FCDFBA71A4F0601 ,65 
1670 'CDBB98DA17953A6AAAE63FCCD998C31795237E2BB7201C01 ,85 
1680 '0002CDBB983A74AAB8D217952336023A73AAB9380236012B,B7 
1690 'C317950E033D28020EFD0600CDBB98DA17953E1ECD9CA6CC.D5 
1700 'D998C31795237E2BB7CAB296FE0328210E023D28020EFE06,48 
1710 'FECDBB983A6AAAE60FCCD99878FE34D217952336032BC317,27 
1720 ' 9501 0003CDBB98C31795010002CDBB9878FE78DA 17951106,06 
1730 '00197E11FBFF191601B728021602722BC31795237E342BFE,D5 
1740 '1E3806FE2838241827010002CDBB98DA1795237EFE1DC2FF,43 
1750 '96234E2B3A73AA061EB930020628702BC317950102FE1803,EC 
1760 '01FEFECDBB98DA17953A6AAAE603CCD998237EFE272808FE.0B 
1770 '3128042BC3179536002BC31795237E2B3D282E3D28300100,BC 
1780 '02CDBB98DA17953E32CD9CA6CCD9983E28CD9CA6C628B8D2,51 
1790 '17953A73AA1601B930011423722BC31795010203180301FE,67 
1B00 '03CDBB98DA17953A6AAAE60FCCD998C31795237E2BB72024,5F 
1810 '01 0002CDBB983A6AAAE6 1 FCCD99878FE90DA 1 795E5ED5B73 , DF 
1820 'AACD04A7E13C23772BC317953D87EB210299CDF6A74E2346,FF 
1830 'EBCDBB98C31795CD33983A6AAAE60FC21795E523234E2346,A5 
1840 '110808CD0BA8CDD998E1C31795CD33983A6AAAE63FC21795,A8 
1850 'E523234E2346110808CD0BA8C5ED5B73AACD04A7C1D6085F,23 
I860 ' 16037BC604E61F5FCDE9981520F4E1C31795CD33983A6AAA,6F 
1870 'E61FC21795E523234E2346110808CD0BA816081E00CDE998,80 
1880 '7BC6045F1520F6E1C317953A6AAAE601C0237E342BB7280A,FD 
1890 'FE1438212336002B18E923234E23462323E5110808CD0BA8,B9 
1900 'ED5B73AACD04A7E17711FBFF1923234E2346E523237E8721 ,A7 
1910 '0299CDF6A75E2356CD0BA8E1702B712B2BC93A6AAAE601C2,5F 
1920 '1795E5237E87210299CDF6A74E2346E1CDBB98C317950100,07 
1930 '02CDBB98C317953A6AAAE601C21795347EFE10C2179536FF,97 
1940 'C3179523237986774FFEF1300E23788677472BFED430042B,E2 
1950 '2BB7C92B2B36FF37C9E5ED5B73AAC5CD04A7C15FCDE998E1,0C 
I960 'C921D0AA3E08CDF6A77EFEFEC8FEFF20F3360B2373237123,F4 
1970 '70C900FC01FC02FC02FD03FD03FE04FE04FF040004010402,44 
1980 '030203030203020401040004FF04FE04FE03FD03FD02FC02,22 
1990 'FC01FC00FCFFFCFEFDFEFDFDFEFDFEFCFFFCDD21C2AADD23,3D 
2000 'DD23DD23DD7E00FEFEC8FEFF28F0DD4E01DD4602110D17CD,87 
2010 '0BA821D0AA110800197EFEFEC8FEFF28F4FE083806FE0B38,60 
2020 ' 0718EA1 1 1B2718031 12B3723237996BBD29399782396BADA ,BD 
2030 '97992B2B2B18CE237ED60177D2D5992B462B4E2B2B7EFE08,8A 
2040 '301A3E63CD9CA6E6013E0C28023E0D773E01CD93A73E02CD,6A 
2050 ' EBA81809ED4383AA3E01326FAA3EFFDD7700C346993EFFDD ,E8 
2060 '77003E03CDEBA8C346993A70AAB7C021D0AA110800197EFE,CE 
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SHORT PROGRAM ISLMD 



'FECBFEFF28F4FE08380CFE0B38172824FE0C2B2F18E4EB4B,62 
' 73AA1 10B0BCB0BA81 1 1717182BED4B73AA1 10B0BCD0BA81 1 ,53 
'2727181CEEI4B73AA110606CB0BA8110D0D1B0DEB4B73AA11,2A 
'0D0DCD0BA8111B1B23237996BBD2509A7823962BBADA559A,8C 
'2B2BC3EA992B2B7EFE0C280B3A7BAAB7C03E013270AAC936,0D 
'FF3E28327BAA3E01CDEBA8217AAA347EFE0A2805FE142807,C8 
' C93E0 1 3279AAC9353E023279AAC9F5D587 1 6005F2 1 569D 1 9 , AC 
'D1F1C916003A70AAB720383A7BAAB728073A6AAAE602200E,AB 
'ED4B73AAAFCD14A8143CCD14A8143A79AAB728173D2B0AED,29 
'4B77AA3E02CD14A814ED4B75AA3E02CD14A81421C2AA0103,0E 
'00097EFEFECAFA9AFEFF28F2234E23463E03CB14A8142B2B,0fe 
' 18E421D0AA010800097EFEFECA649BFEFF28F2FE08DA249B ,A2 
'FE0BDA369BCA249BFE0CCA249BFE10DA249B18D9E523234E,E1 
'2346CD8E9A7ECD14A814E1C3FD9AE523234E23463E11CB14,C6 
'A81479C6104F3E12CD14A81478C610473E14CB14AB1479D6,1A 
' 104F3E13CD14A814E1C3FD9ACB6AC0CD8DA8C9215AAA1 190 ,0E 
'080E06CD85A5215DAA11D8080E06CD85A52163AA1128080E,B4 
'02CD85A52162AA1158080E02CD85A5C9D526006F292929ED,39 
' 4B040009 1 1 D8AA060BC57E4F0604AFCB2 1 3002F6F0CB2 1 30 , 64 
'02F60F121310EF23C110E6D1CB3ACB1B21D8AA3A07004F3E,32 
'0808EBCB7101EB0604EDB33E80835F300114083D20EBC9F5,C2 
'C5E56069CB3CCB1D06F03806060F878787874FCB7401A0B1,A9 
'CD7701E1C1F1C9F33EC321439C329AFD229BFD3A07004F0C,B4 
' 3ADFF3F61032DFF3ED793E80ED79FBC9F33A07004F0C3ABF ,0C 
'F3E6EF32DFF3ED793E80ED793EC9329AFDFBC9F33A07004F,6B 
'0C3A55AAC612ED793E90ED79ED4B06000CED78E680C2889C,B2 
' 3E0 1 ED793E8FED79ED780600ED4 1 068FED4 1 E60 1 C2DC9CF 1 , 46 
'DDE1FDE1F1C1D1E108D9F1C1D1E1FBC9AF3257AACD2E9D3A,BD 
'07004F0C3AE0F3E6BF32E0F3ED793E81ED793AE7FFF60232,EE 
'E7FFED793E88ED79AFED793E97ED793E10ED793E93ED793E,F1 
'1FED793E82ED793AE0F3F64032E0F3ED793E81ED792156AA,9F 
' 34C3779C2157AA7E34B7C2779CCD2E9D3A07004F0C3AE0F3 , AB 
'E6BF32E0F3ED793E81ED793AE7FFE6FD32E7FFED793E88ED,69 
'793A55AAED793E97ED793E3FED793E82ED793AE0F3F64032,D1 
'E0F3ED793E81ED79CB14A9C3779C3A06004F0CED783A0700,FF 
'4F0C3E01ED793E8FED793A06004F0CED783A07004F0CAFED,6B 
'793E8FED79C9080009000A000B000C000D000E000F00001E,EF 
'0032004610000400050006000700FE01FF050440FF000440,28 
' FF000440FF000440FF000440FF0404B0FF0004B0FF0004B0 ,E6 
' FF0004B0FF0004B0FF040440FF000440FF000440FF000440 , 76 
' FF000440FF0404B0FF0004B0FF0004B0FF0004B0FF0004B0 ,C6 
' FF08032003D0FF080430FF000430FF000430FF000430FF00 , D0 
' 0430FF0304C0FF0004C0FF0004C0FF0004C0FF0004C0FF03 ,08 
' 0430FF000430FF000430FF000430FF000430FF0304C0FF00 ,C5 
'04C0FF0004C0FF0004C0FF0004C0FF03021002E0FF04FE02,06 
'FF01FE03FF01FE04FF010520FF0305C0FF030540FF0305D2,0F 
' FF030560FF030594FF030520FF0305B2FF0305D4FF030560 ,24 
'FF030586FF0305B3FF0305F00540FF030510021002E0FF03,90 
'053AFF0305A70580FF030576FF030520FF0305C3FF03051 1 ,F8 
'021002E0FF03054105B2FF0305B3FF0305DEFF030520FF03,BB 
' 0586054EFF0305B2FF030535FF03056005F0FF0305C6FF03 ,FE 
' 0539FF0305A4FF03054F0526FF0305D3FF0305A80540FF03 ,3A 
'FE03FF01FE02FF01FE01FF01FE00FF01FE0BFF01FE0CFF01,11 
'FE0DFF01FE0EFF0A0870FFFFFE01FF050440FF000440FF00,1F 
' 0440FF000440FF000440FF0404B0FF0004B0FF0004B0FF00 ,E6 
'04B0FF0004B0FF040440FF000440FF000440FF000440FF00,76 
' 0440FF0404B0FF0004B0FF0004B0FF0004B0FF0004B0FF08 ,CE 
' 032003B0FF08002000B0FF05002000D0FF05002000D0FF05 ,B9 
'002000D0021002E0FF08012001D0FF05012001D0FF050120,F8 
' 01D0FF05012001D0021002E0FF08FE02FF00FE03FF00FE04 ,C3 
' FF000680FF030638FF0306D40687FF030687FF0306B2FF03 ,79 
' 064406D4FF0306EBFF0306B3FF03065E06C4FF030620FF03 ,2C 
' 069DFF030689FF0306B30638FF03065F0680FF0306D3FF03 ,F7 
' 0660FF03069D06D2FF0306A0FF030620FF03069D06730320 ,F4 
' 03D0FF03067DFF0306C4FF03065406B4FF030687FF0306D4 , A5 
'032003D0FF03FE03FF01FE02FF01FE01FF01FE00FF01FE0B,FF 
'FF0A0970FF14FE0CFF14FE0BFFFfFE01FF050440FF000440,45 
' FF000440FF000440FF000440FF0404B0FF0004B0FF0004B0 ,E6 



2750 'FF0004B0FF0004B0FF040440FF000440FF000448FF000440,76 

2760 'FF000440FF0404B0FF0004B0FF0004B0FF0004B0FF0004B0,C6 

2770 ' FF08032003B0FF04034003B0FF04032003D0FF04034003B0 ,E8 

2780 ' FF04002000D0FF05002000D0FF05002000D0FF05002000D0 ,CF 

2790 '031003E0FF08FE02FF00FE03FF00FE04FF000738FF030792,D7 

2800 'FF0307D4FF030761FF030787FF0307B3FF03075FFF030784,88 

2810 'FF0307EC0787FF03078CFF030745FF0307C20760FF0307D4,75 

2820 ' FF030793032003D0FF03073A078CFF0307B4FF030792FF03 ,E2 

2830 '07C6FF0307390796FF030787FF03071B07F0FF03079CFF03,FE 

2840 '072EFF0307DCFF030780FF0307B3032003D0FF03FE03FF01 ,58 

2850 'FE02FF01FE01FF01FE00FF01FE0BFF01FE0CFF01FE0DFF01 ,1B 

2860 'FE0EFF0A0A70FFFF08080818181838393879767BF3E5CE8E,34 

2870 ' 2020203030303838383CDCBC9E4EE6E20000000000001 1 1 3 ,44 

2880 ' 133629346B5A2540000000000000109090D828586CB44804,C6 

2890 '0808081 81 8 18292A2B45464B8A95AACE20202030303028A8,0B 

2900 'A844C4A4A252AAE6080C1C180C1C180C1C180C1C180C1808,0C 

2910 ' 206070306070306070306070306030208041 332C1B172C6D,BB 

2920 '6C2D171B2C3341800182CC34B8E874B676F4E8B834CC8201 ,05 

2930 ' 00000000 1 70C0B 1 7 1 7 1 B0C 1 30500000000000000409060B0 , 7B 

2940 'A050E050A0000000806257322D5BD54E2D752A971A2D3341 ,F4 

2950 '81066FF66A9C69F4F6F6ED12F66D831 1 1000441 138BA1044 ,DC 

2960 '018B217022044E0440E4401042174200568421881C084009,94 

2970 '02163F522D5B5B2D523F162B362526044068FC4AB4DABAB4,1A 

2980 ' 4AFC68D46CA464208989DDDBEB553677F5FA7B3A19190909 ,B5 

2990 '222276B6AE54D8DC5EBEBCB830302020030E1F730CFB0629,2F 

3000 ' 2906FB0C731F0E03C070F8CE30DF60949460BF30CEF870C0 ,CB 

3010 '010989898DDA6B6B2D2A1605030303010020222262B6ACAC,A9 

3020 '68A8D040808080000C1C1D1C1D0B333B1D0A030B0A090101 ,E1 

3030 ' 6070707070A098B870A080A0A020000001 1B3C53ECDB56AD ,75 

3040 ' AC56DBEC533C1B0180D83CCA37DB6A35356AOB37CA3CB880 ,92 

3050 '09898B8DDAAFABB5B635151B0B0901012022A262B6EAAA5A,AE 

3060 'DA5850B0A020000001030A35F63B5D556E4B4C4544454441 ,72 

3070 '80C050AC6FDCBAAA76B232A222A22282000000000105030F,67 

3080 '030501000000000000000000004080E08040000000000000,69 

3090 '80582E576936351B0D160B3C7FFF0055040D1C5DBCBD6CAD,C5 

3100 ' 56E75BAC3BD7EE6B20B038BA3DBB36B56AE7DA35DCEB77B6 , AA 

3110 '01 1 A74EA966CACD8B068D03CFEFF00AA5500FF7F3C0B160B ,07 

3120 ' 1B353669572E58806DEED73BAC5BE756AD6CDDBC5D1C0D04 ,39 

3130 'B677EBDC35DAE76AB536BB3DBA38B020AA00FFFE3CB068B0,C4 

3140 ' D8AC6C96EA741A010E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E ,DF 

3150 '4545454545454B4B4B4545454545454504040D040B04040D,9D 

3160 '0D040D0D040D0B04070F08070F08070F08070F0807080707,E2 

3170 '0303040D040B0F0F0F0F0D040B0403030000000006070708,A8 

3180 ' 080708070600000006070708070807080808070708070706 ,98 

3190 '06070606060706070607060707060706090A0C0A07080807,AE 

3200 ' 0A0C0C0A0A0A09090304040D0D04040D0F0F0D0404040403 ,CA 

32 1 ' 09090A0C0A0F040D0D040F0A0C0A09090909090A0A0C0C0F ,FA 

3220 '0C0C0A090A0C0A09060707080707080F0807080F08080706,DB 

3230 '06070807080F080F0F080F0807080706030304040D0F0D0D,D8 

3240 ' 0F0B040D0404-0303060708080F0F08070808070807070606 ,BE 

3250 ' 00000000090A0C0F0C0A0900000000000303030404040D0D ,7C 

3260 ' 0D0D040B040B0D0F0303030404040D0D0D0D040D040D0D0F ,DF 

3270 ' 0F0D0B040D040B0B0B0B0404040303030F0D0B040D040D0B ,DF 

3280 '0D0B04040403030300001701710140046206260275017603,7C 

3290 '770514043606070657077507570577075E2356237E23B7C8,AB 

3300 'FE0128F4CDA8A57BC6085F18EF7EE60FC630CBA8A57BB608,C0 

3310 '5F0BC87E0F0F0F0FE60FC630CDA8A5237BD6085F0BC818DD,98 

3320 'F5C5E567E61F0707076F7CE6C00F0F0FC62067CDFCA53A07,BA 

3330 '004F0C3E20F3ED793E91ED790C0CAF0600ED69EB79ED61EB,0B 

3340 ' 41ED59ED79ED513AF6FAED79AF0608EB41ED79ED41ED79ED ,8D 

3350 '79ED793EB0EB79FBE1C1F1C93A07004F0C3E02F3EB793E8F ,AC 

3360 'EB793A06004F0EEB78F53A07004F0CAFED793E8FED79FBF1 ,2B 

3370 'E60120B8C9AF180A3E0118063E0218023E0332F6FAC9061F,81 

3380 '3E001810063F3E01180A065F3E021804067F3E0332F5FA78,2C 

3390 '32E1F33A07004F0CF3ED413E82ED79FBC9F5B5C50608EB21 ,56 

3400 ' 000029CB27D271A61910F7C1B1F1C9B5C516005F0100003E ,BE 

3410 ' 100BAFCB21CB1029CB127A93DA91A65703083DC281A67A60,14 

3420 '69C1B1C9D9082A58AA11093DCDC0A62B2258AA6C26000816,5A 



y 3 -h7"D?'7A-7-f7>F 159 



3430 '005FB72004EB5358AACDC0A67CD9B7C9444D2100007AB7C4 ,2B 

3440 'CBA67B291730010929173001092917300109291730010929,FB 

3450 '17300109291730010929173001092917B009C9E3F5D58785,E0 

3460 ' 6F3001245E2356EBB1F1E3C92108007B913004ED44CB254F ,CB 

3470 '7A90300CED44CB5D2804CB9B1802CBBD47B9380324414F08,EC 

3480 '7B081 10C006A7885B9380214916F1D20F57A015EA7CB00A8 ,37 

3490 '0A5F08252006CB5F280B1806CB5F28021805C60893180183,A7 

3500 'E61F5F087BC900000101010202020303030404AFCDD500B7,D2 

3510 ' C03CCBB500C9AFCDD8003CC8CDD8003CC93E04CD4 1 1 CB57 , DC 

3520 'C8CB5FC83E03CDD8003CC9C5B5E52159AAB7CDE5A73E00CD.63 

3530 'E5A73E00CBE5A77E215FAABE3819ED5B5AAA280777ED535D,69 

3540 'AA180C2A5BAAB7EB523004EB535BAA2A5B^AEB5B60AAB7ED,95 

3550 ' 52380E2 1 5FAA3E05B7CDE5A73E00CDE5A7E 1 Dl C 1 C9238E27 ,C0 

3560 '77C92162AA18032163AA862777C9856FB024C9835FB014C9,E3 

3570 '814FD004C9E5B7ED52E1C9F578824779834FF1C9F5C5D5E5,A1 

3580 ' 2676CB22CB226A87875F053A55AA80FEDB20013C477908F3 ,F9 

3590 '3A07004F0C7CE6C00707EB793E8EEB79EB697CE63FF640EB,7E 

3600 ' 790BFB08ED4100EB7900ED5926006B29290189AB09EB6C26 ,01 

3610 '00292901007409F33A07004F0C7CE6C00707ED793E8EED79,27 

3620 'ED697CE63FF640EB790DFBEB0610EDB3E1B1C1F1C9F5C5D5,F8 

3630 ' E52676CB22CB226AF33A07004F0C7CE6C00707EB793E8EED , A3 

3640 ' 79ED697CE63FF640ED790DFB3ED8ED79E ID 1 C1F 1 C9 1 600CD , A0 

3650 ' 8DA814CB6A28F8C9F3AF3265AA3D3268AA3E033269AAFB3E ,8A 

3660 '071EBFCB93003E081E00CD93003CFE0B20FBC9F5E5C5F321 ,E1 

3670 '68AAB728053DBE30163C772B2B2B36028706004F215BA909,AD 

3680 '4E2346ED4366AAFBC1E1F1C92169AA35C036033A65AAB7C8,78 

3690 '3D201B3265AA3D3268AA3E071EBFCB93003E081E00CB9300,80 

3700 ' 3CFE0B20F8C92A66AAAF5ECD93003C23FE0B20F67EB72005 , A5 

3710 '232266AAC93E013265AAC965A9B9A9E9A90DAA31AA000000,FB 

3720 '00AC01149800000D00000000009401149800000B00AC0100,61 

3730 '007D01 1 4980B000B009401 00006801 14980D0B0B007B01 AC, 3F 

3740 '015301 14980D0D0C0068019401400114980D0D0C0053017D, 09 

3750 '012E0114980C0D0C01B6000000B60000B80B0A0C006B0000,F2 

3760 ' 00CA0000B80B0A0G00D600B600BE0000B80B0A0C006B00CA , IB 

3770 '00B40000B80B0A0C0164005F003A0014980B0A0C005F003A,F1 

3780 '005F0014980B0A0C003A003A00640014980B0A0C01D400D4,7A 

3790 ' 0035000A9800000C0035000000D4000A980B000C00D40035 , AE 

3800 ' 0035000A980B0A0C015A000000000000B80B0A09005F005A ,E2 

3810 '00000000B80B0A090065005F005A0000B80B0A0901000001 ,CC 
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10 DEFINTA-Z: COLOR 15,13,0 
20 KEYOFF : SCREEN 1 ,2 :WIDTH30 :SG=0 
30 CLS : P=96 : G0SUB2 1 : RESTORE380 : F - 1 04 : GO 
SUB2 1 : P= 1 1 2 : G0SUB2 1 : FOR I =0TO2 : READ 1 : V 
POKES<H200C+I ,I0:NEXT 

40 FORP=0TO3:A*=" ": FORI =0TO31 : READ B*:A* 
=A*+CHR*(VAL<"S/H"+B*> ) :NEXT :SPRITE* (P) =A 
* :NEXT 

50 LOCATE 1 2 , 1 1 : PR I NT " STAGE " ; SG+ 1 
60 FG=0:HS=356+332*<SG>3) :GOSUB180 :GOSUB 
190 

70 RESTORE430:DIMPA*(47) :FORI=0TO47 :READ 
PA* ( I ) :NEXT :SOUND7 ,49 :S0UND6 ,223 :PLAY "S0 
M3000" , "L1603V13" 

80 10=0 :FORI=1TO30 :F0RP=2T022 : VP0KEP*32+ 
I+2<H1800,96+I0: 10=8-10 :NEXTP, I 
90 RESTORE440 

100 FORI=0TOSG :READA* :NEXT :FORI=0TO3 :P=V 
AL < M I D* < A* , I *4+ 1,4)) : LOCATEP¥ 1 00 , PMOD 1 00 
:PRINTMID*("UitH+" ,1 + 1,1) :NEXT 
110 XX=126:YY=86:TM=47:ONINTERVAL=10GOSU 



B140:1NTERVALON 

1 20 DEFFNV ( I , P ) =?/.H 1 800+ 1 ¥8+32* < P¥8+2 ) + 1 
130 11=1 :FORN=0TO2:GDSUB220:NEXT:X=-X:Y= 
-Y : 1 1=0 :FORN=0TO1 :GOSUB200 :GOSUB280 :NEXT 
: GOTO 130 

140 TM=(TM+1 )M0D48:PLAY"" ,PA*(TM) 
1 50 PUTSPR I TE0 , ( X X , Y Y ) , 1 5 , ( TMM0D2 ) *2 
1 60 PUTSPR I TE 1 , < X X , Y Y ) , 1 , < TMMOD2 ) *2+ 1 
170 RETURN 

180 LOCATES ,0 :PRINTLEFT* ( "*Urt)tT ,FG+1 ) ; " 
* " : RETURN 

190 LOCATE15,0:PRINT"(JK^J" ;HS;" " {RETURN 
200 I =FNV ( X X , Y Y ) : I FVPEEK ( I ) < 1 28THENVP0KE 
I , 1 12 :RETURNELSERETURN 

210 FORI=0TO7 : READ 10 :VP0KEP*8+I ,10 s NEXT : 
RETURN 

220 I=STICK(0) :1FI>0THENELSEIFINKEY*=CHR 
* ( 27 ) THEN360ELSE220 

230 I = I ¥2 : ON I + 1 GOTO240 , 250 , 260 , 270 
240 X=0:Y=-1 :GOTO280 
250 X=l :Y=0:6OTO280 
260 X=0:Y=1 :GOTO280 
270 X=-l :Y=0 
280 I=XX+8*X:P=YY+8*Y 

290 I0=VPEEK(FNV(I ,P) ) : IFI0*I 1=1 120R I <6 
0RP<60RI >238ORP>166THENX=0 : Y=0 
300 I FASC ( M I D* ( " 1-.MH " , FG+ 1 , 1 ) ) = 1 0THENPL A 
Y"C8" :FG=FG+1 :GOSUB180 

310 FORI=0TO7:XX=XX+X:YY=YY+Y:GOSUB150:N 
EXT :HS=HS-2 : IFHS>-1THENGOSUB190ELSE360 
320 IFFG<4THENRETURN 

330 INTERVALOFF:PLAY"" , "L12S0D+D+D+G6D+V 
1 3F4 " : SG= ( SG+ 1 ) M0D7 

340 FORF-0TO9 : VPOKES<H200C , 255 : VPOKE&H200 
D , 255 : FOR I =0TO 1 00 : NE XT I : VPOKE2<H200C , 1 66 : 
VPOKE2<H200D,i34:FORI=0TO100:NEXTI ,P 
350 FORI=0TO900:NEXT:PUTSPRITE0, (0,208) : 
LOCATE0,23:FORI=0TO23:PRINTCHR*(13) :NEXT 
:ERASEPA* :RETURN50 
360 INTERVALOFF:PLAY"" 
C4 " : PUTSPR I TE0 , ( , 208 ) 

370 LOCATE 10, 11 : PR I NT" GAME OVER " :FOR_I = 
0TO3000 :NEXT :GOTO350 

380 DATA 254 , 254 , 254 , 254 , 254 , 254 , 254 , 
390 DATA 0,60,90,90,126,0,60,0 
400 DATA 166,134,244 
410 DATA 2,7,7,2,BD,3E,39,36,1,D,E,F,F,F 

,7,0,0,0,0,0,0,80,C0,E0,E0,C0,0,0,0,0,0, 

0,0,0,0,5,42,1 ,6,9, E, 2,1 ,0,0, 10,18, F, 0,0 

,0,0,0,0,0,0,0,0,0,0,80,C0,C0,80 

420 DATA 4,E,E,4,D,BB,3B,38,7,D,E,F,F,F, 

C,0,0,0,0,0,0,C0,60,E0,E0,C0,0,0,0,0,0,0 

,0,0,0, A, 2, 44, 4, 7, 8, 2,1 ,0 ,0 , 10 , 13 ,F ,0 ,0 , 

0,0,0,0,80,0,0,0,0,0,80,C0,C0,80 

430 DATA A, A, A, A, ,04C+,D, , ,D, , ,E, ,F+,E, , 

D,C+, , ,03A, , ,B, , ,D, ,D,D, ,04E, , ,D,C+, ,D,0 

3A,,G,B,,,,, 

440 DATA 0912131216122012 

1010101420102014 

1403150314211521 

0706231707072318 

1311141213121411 

1412161215101514 

1212141113121510 
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450 
460 
470 
480 
490 

500 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



160 



i- h • 7p^*=a • r-r = > k 



SHORT PROGRAM ISLAM 
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10 CLEAR 100,&HCFFF!ON ERROR GOTO 920 

20 DEFINT A-Z:COLOR 15,0,0 

30 OPEN "grp :" AS #1 

40 C*=CHR* ( 28 ) +CHR* ( 29 ) +CHR* ( 30 ) +CHR* ( 3 1 

) + " m , . . j k 1 li i o " 

50 DIM A(31 ,26) :SCREEN 5:SET PAGE 1.1 :CL 

S 

60 _TURBO ON: FOR Y=0 TO 26: FOR X=0 TO 31 

:PSET(X*8,Y*8> ,4:NEXT X.Y 

70 TURBO OFF 

80 FOR 1=0 TO 35 

90 READ X ,Y:A(X,Y)=256:LINE(X*8-i ,Y*8-1> 

-STEP (2, 2) , ,EF 

100 NEXT 

110 DATA 14,10,15.10,16,10,17,10,14,11,1 

7,11 ,14,12,17,12 

120 DATA 11,13,12,13,13,13,14,13,17,13,1 

8,13,19,13,20,13 

130 DATA 11,14,20,14,11,15,20,15 

140 DATA 11,16,12,16,13,16,14,16,17,16,1 

8,16,19,16,20,16 

150 DATA 14,17,17,17,14,18,17,18,14,19,1 

5,19,16,19,17,19 

160 SETPAGE0, 0:SPR I TE*<0) ="££-£" rPUTSPRIT 

El , <0,8<HD8) ,0,0 

170 SETPAGE1 Jl :SPRITE*(0) ="£££" :PUTSPRIT 

El , <0,&HD8) ,0.0 

180 X=16:Y=16 

190 PUT SPRITE 0, (X*8-l ,Y*8-2) ,8,0 

200 A*=INPUT*<1> .-SET PAGE 1,1 

210 Z=INSTR(C*,A*> :IF Z THEN A*=MID*("64 

82123456789" ,Z,1) 

220 IF A*="0" OR A*=CHR*<32) GOTO 600 

230 Z=VAL(A*) :IF Z=5 GOTO 260 

240 X=X+(Z-1)M0D3-1 : Y=Y- (Z-l ) ¥3+1 :X=XAND 

31 :Y=YM0D27 

250 GOTO 190 

260 IF A(X,Y)=511 THEN 190 

270 PUT SPRITE , <X*8-1 , Y*8-2> ,7 

280 A*=INPUT*(1> :Z=INSTR(C*,A*> :IF Z THE 

N A*=M I D* < " 6482 1 23456789 " , Z , 1 ) 

290 ON VAL(A*) GOTO 310,320,330,340,190, 

350,360,370,380 

300 GOTO 190 

310 VX=-1:VY= 1:S= 32:E= 

320 VX= 0:VY= 1 :S= 64:E= 

330 VX= 1 :VY = 1:S=128:E= 

340 VX=-1 :VY= 0:S= 

350 VX= 1 :VY= 0:S= 16:E= 

360 VX=-1 :VY=-1 :S= 

370 VX= 0:VY=-1 :S= 

380 VX= 1:VY=-1:S= 4:E= 32 

390 IF A<X,Y) AND S THEN 190 

400 IF A(X+VX*4,Y+VY*4) AND E THEN 190 

410 C=0 

420 FOR 1=0 TO 4 

430 IF A(X+VX*I ,Y+VY*I) >255 THEN C=C+1 

440 NEXT 

450 IF C<>4 THEN 190 

460 A(X,Y)=A(X,Y) OR 256 OR S 

470 A(X+VX*4,Y+VY*4)=A(X+VX*4,Y+VY*4) OR 

256 OR E 
480 LINE(X*8,Y*8)-< <X+VX*4)*8, (Y+VY*4)*8 
) 

490 LINE(X*8-1 ,Y*8-1)-STEP<2,2) , ,B 
500 LINE( <X+VX*4)*8-1 , ( Y+VY*4) *8-l ) -STEP 
(2,2) , ,B 

510 FOR 1=1 TO 3:X=X+VX:Y=Y+VY 
520 A ( X , Y ) =A ( X , Y ) OR 256 OR S OR E 
530 LINE(X*8-1 ,Y*8-1)-STEP(2,2) , ,B 
540 NEXT 



4:G0T0 390 

2:G0T0 390 

1 :GOTO 390 

8:E= 16:G0T0 390 

8: GOTO 390 

1 :E=128:G0T0 390 

2:E= 64:G0T0 390 





550 X=X-VX*3:Y=Y-VY*3 

560 L=L+1 

570 PRESET (0,0) 

580 PRINT #1 ,L 

590 GOTO 190 

600 F=0:COPY (0,0)-(255,211)TO(0,0) ,0:SET 

PAGE0,0 

610 XX=X:YY = Y:HF=0:_TURBO ON (A < ) ,HF/C) 

620 FOR Y=0 TO 26 

630 FOR X=0 TO 31 

640 PUT SPRITE , (X*8-l , Y*8-2) , 12 ,0 

650 IF A(X,Y)=0 GOTO 870 

660 FOR J=l TO 8 

670 ON J GOTO 680,690,700,710,720,730,74 

0,750 

680 VX=-1 :VY= 1 :S= 32:E= 

1 :S= 64:E= 

1 :S=128:E= 



690 VX= 0:VY= 

700 VX = 1 :VY= 

710 VX=-1 :VY= 0:S= 8:E= 

720 VX = 1 :VY= 0:S= 16:E= 

730 VX=-1 :VY=-1 :S= 

740 VX= 0:VY=-1 :S= 

750 VX= 1:VY=-1:S= 

760 IF A(X,Y) AND £ 



4: GOTO 760 

2 .-GOTO 760 

1 :GOTO 760 

16:G0T0 760 

8:G0T0 760 

1 :E=128:GOT0 760 

2:E= 64: GOTO 760 

4:E= 32 

THEN 860 



770 Z=X+VX*4:IF Z<0 OR Z>31 GOTO 860 



Z=Y+VY*4:IF Z<0 OR Z >26 GOTO 860 

AND E THEN 860 




780 

790 IF A(X+VX*4,Y+VY*4) 

800 C=0 

810 FOR 1=0 TO 4 

820 IF A(X+VX*I ,Y+VY*I) >255 THEN C=C+1 

830 NEXT I 

840 IF C<>4 THEN 860 

850 LINE(X*8,Y*8)-( (X+VX*4)*8, (Y+VY*4>*8 

) ,4:HF=1 

860 NEXT J 

870 NEXT X,Y 

880 _TURBO OFF 

890 IF HF=0 THEN PRESET (0 ,0) :PRINT#1 , " 

GAME OVER " ;L ; " 1 ines" :GOTO 890 
900 X=XX:Y=YY 
910 GOTO 190 
920 BEEP:RESUME NEXT 



33fc*S^^ LIST 



180 SCREEN5,0:DEFINTA-Z 

110 FORI=0TO31:VPOKE&H7800+I,VAL("&H"+MID$("7EDBFFFFFF7E1 

80C7EDBFFFFFF7E18307EFFFFFFFFBDFF7E10183C7EFFFFFF7C" ,1*2+ 

1,2)) :NEXT:0PEN"6RP:"AS#1 

120 SETPAGE,2:LINE(0,0)-(7,23) ,6,BF :LINE ( 1 ,1 ) -(6,22) ,8,BF 

:LINE(2,2)-(5,21) ,9,BF 

130 SETPAGE,1:LINE(0,0)-(255,211) ,5,BF:FORI=0TO80:COPY (0, 

0) -(7,23) ,2TD ( (INT (RND( 1 ) *32) ) *8 , INT (RNB ( 1 ) *16) *8+B0) , 1 :N 

EXT:COPY(0,131)-(255,211) ,1TO(50,0) ,1 :SETPAGE,0:LINE(98,5 

5)-(157,160) ,7,BF 

140 X=21:Y=36:K=575:Z=1:V=20 

150 ON SPRITE GOSUB 210:SPRITEON 

160 S=STICK(0> :X=X+(S=3)*(X<71)-(S=7)*(X>0) :Y=Y-(Y<72) :C= 

POINT(107+X,65+Y) :TT=T :T=STRIG(0) :Y=Y+(C=5ANDTTOT) *2:P=( 

P=0) :PUTSPRITE0,(103+X,65+Y) ,1 ,P+1 

170 O=O-(K<0) :K=K-2+(K<0)*-750:M=K¥131:N=KMOD131:COPY(M*5 

0,N)-(M*50+49,N+79) ,1TO(103,65) ,0 

180 Z= (POINT (V+107,W+64)O5)*2*Z+Z:V=V+Z:W=(W+90)MOD89:PU 

TSPRITEl,(V+103,W+60) ,7,2 

190 IFY>70THEN210 

200 GOTO 160 

210 FORI=0TO100 : VDP (24) =IM0D2*5 :S0UND8 , 15 :SOUNB0 , I :NEXT :S 

OUND0,0 

220 PRESET(92, 100) :PRINT#1, "GAME OVER" :PRESET (100,1 10) :PR 

INT#1 , "737" ;O*750+575-K 

230 GOTO 230 
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